home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / objectmove < prev    next >
Text File  |  1997-01-31  |  30KB  |  2,181 lines
  1. extlen: dc.w 0
  2. awayfromwall: dc.w 0
  3. wallbounce: dc.w 0
  4. wallxsize: dc.w 0
  5. wallzsize: dc.w 0
  6. walllength: dc.w 0
  7.  
  8. RoomPath: ds.w 100
  9. RoomPathPtr: dc.l 0
  10. QUITOUT: dc.w 0
  11.  
  12. MoveObject:
  13.  
  14.  move.l objroom,objroomback
  15.  move.w #200,QUITOUT
  16.  
  17.  move.l #RoomPath,RoomPathPtr
  18.  
  19.  clr.b hitwall
  20.  
  21.  move.w newx,d0
  22.  sub.w oldx,d0
  23.  move.w d0,xdiff
  24.  move.w newz,d0
  25.  sub.w oldz,d0
  26.  move.w d0,zdiff
  27.  tst.w xdiff
  28.  bne.s .moveing
  29.  tst.w zdiff
  30.  bne.s .moveing
  31.  rts
  32.  
  33. .moveing:
  34.  
  35.  move.l newy,wallhitheight
  36.  move.l objroom,a0
  37.  
  38. gobackanddoitallagain:
  39.  
  40.  move.l a0,a5
  41.  adda.w ToExitList(a5),a0
  42.  move.l a0,test
  43.  move.l FloorLines,a1
  44. checkwalls:
  45.  move.w (a0)+,d0
  46.  blt nomorewalls
  47.  
  48.  asl.w #4,d0
  49.  lea (a1,d0.w),a2
  50.  
  51. *********************************
  52. * Check if we are within exit limits
  53. * of zone.
  54. *********************************
  55.  
  56.  move.l #-65536*256,d0
  57.  move.l d0,LowerRoofHeight
  58.  move.l d0,UpperRoofHeight
  59.  move.l d0,LowerFloorHeight
  60.  move.l d0,UpperFloorHeight
  61.  
  62. ; tst.b 9(a2)
  63. ; bne thisisawall2
  64.  
  65.  moveq #0,d1
  66.  move.w 8(a2),d1
  67.  blt thisisawall2
  68.  move.l ZoneAdds,a4
  69.  move.l (a4,d1.w*4),a4
  70.  add.l LEVELDATA,a4
  71.  
  72.  move.l ToZoneFloor(a4),d1
  73.  move.l d1,LowerFloorHeight
  74.  move.l ToZoneRoof(a4),d2
  75.  move.l d2,LowerRoofHeight
  76.  
  77.  bra thisisawall1
  78.  
  79.  sub.l d2,d1
  80.  cmp.l thingheight,d1
  81.  ble thisisawall1
  82.  
  83.  move.l oldy,d0
  84.  move.l d0,d1
  85.  add.l thingheight,d1
  86.  sub.l ToZoneFloor(a4),d1
  87.  bgt.s chkstepup
  88.  
  89.  neg.l d1
  90.  cmp.l StepDownVal,d1
  91.  blt.s botinsidebot
  92.  
  93. chkstepup:
  94.  cmp.l StepUpVal,d1
  95.  blt.s botinsidebot
  96.  
  97. ; We have a wall!
  98.  bra thisisawall1
  99.  
  100. botinsidebot:
  101.  
  102.  sub.l ToZoneRoof(a4),d0
  103.  blt.s thisisawall1
  104.  
  105.  bra checkwalls
  106.  
  107. thisisawall1:
  108.  
  109.  move.l ToUpperFloor(a4),d1
  110.  move.l d1,UpperFloorHeight
  111.  move.l ToUpperRoof(a4),d2
  112.  sub.l d2,d1
  113.  move.l d2,UpperRoofHeight
  114.  
  115.  bra thisisawall2
  116.  
  117.  cmp.l thingheight,d1
  118.  ble thisisawall2
  119.  
  120.  move.l oldy,d0
  121.  move.l d0,d1
  122.  add.l thingheight,d1
  123.  sub.l ToUpperFloor(a4),d1
  124.  bgt.s chkstepup2
  125.  
  126.  neg.l d1
  127.  cmp.l StepDownVal,d1
  128.  blt.s botinsidebot2
  129.  bra.s thisisawall2
  130.  
  131. chkstepup2:
  132.  cmp.l StepUpVal,d1
  133.  blt.s botinsidebot2
  134.  
  135. ; We have a wall!
  136.  bra thisisawall2
  137.  
  138. botinsidebot2:
  139.  
  140.  sub.l ToUpperRoof(a4),d0
  141.  blt.s thisisawall2
  142.  
  143.  bra checkwalls
  144. thisisawall2
  145.  
  146.  move.l #0,a4
  147.  move.l #0,a6
  148.  move.b awayfromwall,d3
  149.  blt.s .notomatoes
  150.  
  151.  move.b 12(a2),d2
  152.  ext.w d2
  153.  
  154.  move.b 13(a2),d4
  155.  ext.w d4
  156.  
  157.  tst.b d3
  158.  beq.s .noshift
  159.  asl.w d3,d2
  160.  asl.w d3,d4
  161. .noshift
  162.  
  163.  move.w d2,a4
  164.  move.w d4,a6
  165.  
  166. .notomatoes:
  167.  
  168.  move.w newx,d0
  169.  move.w newz,d1
  170.  sub.w (a2),d0
  171.  sub.w 2(a2),d1
  172.  sub.w a4,d0
  173.  sub.w a6,d1
  174.  
  175.  move.w 4(a2),d2
  176.  sub.w a4,d2
  177.  sub.w a6,d2
  178.  
  179.  muls d2,d1
  180.  
  181.  move.w 6(a2),d5
  182.  add.w a4,d5
  183.  sub.w a6,d5
  184.  
  185.  muls d5,d0
  186.  sub.l d1,d0
  187.  ble chkhttt
  188.  
  189.  move.w 10(a2),d3
  190.  add.w extlen,d3
  191.  divs d3,d0
  192.  cmp.w #32,d0
  193.  bge oknothitwall
  194.  
  195.  move.w wallflags(pc),d0
  196.  or.w d0,14(a2) 
  197.  
  198.  bra oknothitwall
  199.  
  200. chkhttt:
  201.  
  202.  move.w d2,WALLXLEN
  203.  move.w d5,WALLZLEN
  204.  
  205.  move.l d0,d7
  206.  
  207.  move.w 10(a2),d3
  208.  add.w extlen,d3
  209.  divs d3,d7    ;  d
  210.  
  211.  move.l newy,d4
  212.  sub.l oldy,d4
  213. ; beq .dontworryhit
  214.  
  215.  move.w oldx,d0
  216.  move.w oldz,d1
  217.  sub.w (a2),d0
  218.  sub.w 2(a2),d1
  219.  sub.w a4,d0
  220.  sub.w a6,d1
  221.  
  222.  muls d2,d1
  223.  muls d5,d0
  224.  sub.l d1,d0
  225.  divs d3,d0    ; otherd
  226.  
  227.  sub.w d7,d0    ; total distance travelled across wall
  228.  bgt.s .ohbugger
  229.  moveq #1,d0
  230. .ohbugger:
  231.  
  232. ; We now have ratio to multiply x,z and y differences
  233. ; by. Check y=0 since that's quite common.
  234.  
  235.  move.l d4,d1
  236.  beq.s .dontworryhit
  237.  
  238.  divs d0,d1
  239.  muls d7,d1
  240. .dontworryhit:
  241.  add.l newy,d1 ; height at point of crossing wall.
  242.  move.l d1,d6
  243.  add.l thingheight,d6
  244.  sub.l StepUpVal,d6
  245.  
  246.  cmp.l LowerFloorHeight,d6
  247.  bge.s .yeshit
  248.  cmp.l LowerRoofHeight,d1
  249.  bgt oknothitwall
  250.  cmp.l UpperRoofHeight,d1
  251.  blt.s .yeshit
  252.  cmp.l UpperFloorHeight,d6
  253.  blt oknothitwall
  254.  
  255. .yeshit:
  256.  
  257.  move.l d1,wallhitheight
  258.  
  259.  tst.b wallbounce
  260.  bne.s .calcbounce
  261.  
  262.  tst.b exitfirst(pc)
  263.  beq.s .calcalong
  264.  bne.s .calcwherehit
  265.  
  266. .calcbounce:
  267.  
  268. ; For simplicity (possibility!) the
  269. ; bounce routine will:
  270. ; Place the object at wall contact
  271. ; point
  272. ; Supply wall data to reflect the
  273. ; movement direction of the object
  274.  
  275.  move.w d2,wallxsize
  276.  move.w d5,wallzsize
  277.  move.w d3,walllength
  278.  
  279. .calcwherehit:
  280.  
  281. ; add.w #20,d7
  282.  move.w newx,d6
  283.  sub.w oldx,d6
  284.  muls d7,d6
  285.  divs d0,d6
  286.  add.w newx,d6
  287.  
  288.  move.w newz,d1
  289.  sub.w oldz,d1
  290.  muls d7,d1
  291.  divs d0,d1
  292.  add.w newz,d1
  293.  move.w d6,d0
  294.  move.w d1,d7
  295.  bra.s .calcedhit
  296.  
  297. .calcalong:
  298.  
  299. ; sub.w #3,d7
  300.  move.w d7,d6
  301.  muls d5,d6
  302.  muls d2,d7
  303.  divs d3,d6
  304.  divs d3,d7
  305.  neg.w d6
  306.  add.w newx,d6    ; point on wall
  307.  add.w newz,d7
  308.  
  309.  move.w d6,d0
  310.  move.w d7,d1
  311.  bra.s othercheck
  312.  
  313. .calcedhit:
  314.  
  315.  move.w newx,d6
  316.  move.w newz,d7
  317.  sub.w oldx,d6
  318.  sub.w oldz,d7
  319.   
  320.  move.w (a2),d4
  321.  add.w a4,d4
  322.  sub.w oldx,d4
  323.  muls d4,d7; negative if on left
  324.  move.w 2(a2),d4
  325.  add.w a6,d4
  326.  sub.w oldz,d4
  327.  muls d4,d6
  328.  sub.l d6,d7
  329.  bgt oknothitwall
  330.  
  331.  move.w d0,d6
  332.  move.w d1,d7
  333.  move.w newx,d6
  334.  move.w newz,d7
  335.  sub.w oldx,d6
  336.  sub.w oldz,d7
  337.  
  338.  move.w (a2),d4
  339.  add.w a4,d4
  340.  add.w d2,d4
  341.  sub.w oldx,d4
  342.  muls d4,d7; negative if on left
  343.  move.w 2(a2),d4
  344.  add.w a6,d4
  345.  add.w d5,d4
  346.  sub.w oldz,d4
  347.  muls d4,d6
  348.  sub.l d6,d7
  349.  blt oknothitwall
  350.  bra hitthewall
  351.  
  352.  
  353. othercheck:
  354.  
  355. ; sub.w (a2),d6
  356. ; sub.w 2(a2),d7
  357. ; sub.w a4,d6
  358. ; sub.w a6,d7
  359. ; 
  360. ; muls d6,d6
  361. ; muls d7,d7
  362. ; add.w #5,d3
  363. ; muls d3,d3
  364. ; 
  365. ; add.l d6,d7
  366. ; cmp.l d3,d7
  367. ; bgt oknothitwall
  368. ; 
  369. ; move.w d1,d7
  370. ; move.w d0,d6
  371. ; sub.w (a2),d6
  372. ; sub.w 2(a2),d7
  373. ; sub.w d2,d6
  374. ; sub.w d5,d7
  375. ; muls d6,d6
  376. ; muls d7,d7
  377. ; add.l d6,d7
  378. ; cmp.l d3,d7
  379. ; bgt oknothitwall
  380. ; 
  381. ;************8 
  382.  
  383.  sub.w (a2),d6
  384.  sub.w 2(a2),d7
  385.  
  386.  sub.w a4,d6
  387.  sub.w a6,d7
  388.  move.w d2,d4
  389.  bge.s okplus1
  390.  neg.w d4
  391. okplus1
  392.  move.w d5,d3
  393.  bge.s okplus2
  394.  neg.w d3
  395. okplus2:
  396.  cmp.w d4,d3
  397.  bgt.s UseZ
  398.  
  399. ; Use the x coord!
  400.  
  401.  tst.w d6
  402.  bgt.s xispos
  403.  
  404.  move.w d2,d7
  405.  cmp.w #4,d7
  406.  bgt.s oknothitwall
  407.  sub.w #4,d7
  408.  cmp.w d7,d6
  409.  blt.s oknothitwall
  410.  
  411.  bra.s hitthewall
  412.  
  413. xispos:
  414.  
  415.  move.w d2,d7
  416.  cmp.w #-4,d7
  417.  blt.s oknothitwall
  418.  add.w #4,d7
  419.  cmp.w d7,d6
  420.  bgt.s oknothitwall
  421.  
  422.  bra.s hitthewall
  423.  
  424. UseZ:
  425.  tst.w d7
  426.  bgt.s zispos
  427.  
  428.  move.w d5,d6
  429.  cmp.w #4,d6
  430.  bgt.s oknothitwall
  431.  sub.w #4,d6
  432.  cmp.w d6,d7
  433.  blt.s oknothitwall
  434.  
  435.  bra.s hitthewall
  436.  
  437. zispos:
  438.  
  439.  move.w d5,d6
  440.  cmp.w #-4,d6
  441.  blt.s oknothitwall
  442.  add.w #4,d6
  443.  cmp.w d6,d7
  444.  bgt.s oknothitwall 
  445.  
  446. hitthewall:
  447.  
  448.  move.w d0,newx
  449.  move.w d1,newz
  450.  move.w wallflags(pc),d0
  451.  or.w d0,14(a2)
  452.  st hitwall
  453.  tst.b exitfirst(pc)
  454.  bne stopandleave
  455.  
  456. oknothitwall:
  457.  
  458.  bra checkwalls
  459. nomorewalls:
  460.  
  461.  tst.w extlen
  462.  beq NOOTHERWALLSNEEDED
  463.  
  464.  tst.w xdiff
  465.  bne.s notstill
  466.  tst.w zdiff
  467.  bne.s notstill
  468.  move.l objroom,a0
  469.  bra mustbeinsameroom
  470. notstill:
  471.  
  472.  move.l a5,a0
  473.  add.w ToExitList(a0),a0
  474.  
  475. checkotherwalls:
  476.  move.w (a0)+,d0
  477.  bge anotherwalls
  478.  cmp.w #-2,d0
  479.  beq nomoreotherwalls
  480.  bra checkotherwalls
  481.  
  482. anotherwalls:
  483.  
  484.  asl.w #4,d0
  485.  lea (a1,d0.w),a2
  486.  
  487. *********************************
  488. * Check if we are within exit limits
  489. * of zone.
  490. *********************************
  491.  
  492. ; tst.b 9(a2)
  493. ; bne .thisisawall2
  494.  
  495.  moveq #0,d1
  496.  move.w 8(a2),d1
  497.  blt .thisisawall2
  498.  move.l ZoneAdds,a4
  499.  move.l (a4,d1.w*4),a4
  500.  add.l LEVELDATA,a4
  501.  
  502.  move.l ToZoneFloor(a4),d1
  503.  sub.l ToZoneRoof(a4),d1
  504.  cmp.l thingheight,d1
  505.  ble .thisisawall1
  506.  
  507.  move.l newy,d0
  508.  move.l d0,d1
  509.  add.l thingheight,d1
  510.  sub.l ToZoneFloor(a4),d1
  511.  bgt.s .chkstepup
  512.  
  513.  neg.l d1
  514.  cmp.l StepDownVal,d1
  515.  blt.s .botinsidebot
  516.  bra.s .thisisawall1
  517.  
  518. .chkstepup:
  519.  
  520.  cmp.l StepUpVal,d1
  521.  blt.s .botinsidebot
  522.  
  523. ; We have a wall!
  524.  bra .thisisawall1
  525.  
  526. .botinsidebot:
  527.  
  528.  sub.l ToZoneRoof(a4),d0
  529.  blt.s .thisisawall1
  530.  
  531.  bra checkotherwalls
  532.  
  533. .thisisawall1:
  534.  
  535.  move.l ToUpperFloor(a4),d1
  536.  sub.l ToUpperRoof(a4),d1
  537.  cmp.l thingheight,d1
  538.  ble .thisisawall2
  539.  
  540.  move.l newy,d0
  541.  move.l d0,d1
  542.  add.l thingheight,d1
  543.  sub.l ToUpperFloor(a4),d1
  544.  bgt.s .chkstepup2
  545.  
  546.  neg.l d1
  547.  cmp.l StepDownVal,d1
  548.  blt.s .botinsidebot2
  549.  bra.s .thisisawall2
  550.  
  551. .chkstepup2:
  552.  
  553.  cmp.l StepUpVal,d1
  554.  blt.s .botinsidebot2
  555.  
  556. ; We have a wall!
  557.  bra .thisisawall2
  558.  
  559. .botinsidebot2:
  560.  
  561.  sub.l ToUpperRoof(a4),d0
  562.  blt.s .thisisawall2
  563.  
  564.  bra checkotherwalls
  565.  
  566. .thisisawall2:
  567.  
  568.  move.l #0,a4
  569.  move.l #0,a6
  570.  move.b awayfromwall,d3
  571.  blt.s .notomatoes
  572.  
  573.  move.b 12(a2),d2
  574.  ext.w d2
  575.  
  576.  move.b 13(a2),d4
  577.  ext.w d4
  578.  
  579.  tst.b d3
  580.  beq.s .noshift
  581.  asl.w d3,d2
  582.  asl.w d3,d4
  583. .noshift
  584.  
  585.  move.w d2,a4
  586.  move.w d4,a6
  587.  
  588. .notomatoes:
  589.  
  590.  move.w 4(a2),d2
  591.  sub.w a4,d2
  592.  sub.w a6,d2
  593.  move.w d2,DX
  594.  move.w 6(a2),d5
  595.  add.w a4,d5
  596.  sub.w a6,d5
  597.  
  598.  
  599.  move.w newx,d0
  600.  move.w newz,d1
  601.  sub.w (a2),d0
  602.  sub.w 2(a2),d1
  603.  sub.w a4,d0
  604.  sub.w a6,d1
  605.  muls DX,d1
  606.  muls d5,d0
  607.  sub.l d1,d0
  608.  bge .oknothitwall
  609.  move.l d0,d7
  610.  
  611.  move.w oldx,d1
  612.  move.w newx,d3
  613.  sub.w d1,d3
  614.  sub.w (a2),d1
  615.  sub.w a4,d1 ;e-a=d1
  616.  
  617.  move.w 2(a2),d2
  618.  add.w a6,d2
  619.  sub.w oldz,d2    ;b-f=d2
  620.  
  621.  move.w newz,d4
  622.  sub.w oldz,d4
  623.  
  624.  muls d4,d1
  625.  muls d3,d2
  626.  add.l d2,d1    ; h(e-a)+g(b-f)
  627.  
  628.  muls DX,d4
  629.  muls d5,d3
  630.  sub.l d3,d4
  631.  beq .oknothitwall
  632.  bgt.s .botpos
  633. .botneg:
  634.  tst.l d1
  635.  bgt .oknothitwall
  636.  cmp.l d1,d4
  637.  ble .mighthit
  638.  bra .oknothitwall
  639.  
  640. .botpos:
  641.  tst.l d1
  642.  blt .oknothitwall
  643.  cmp.l d1,d4
  644.  blt .oknothitwall
  645.  
  646. .mighthit:
  647.  
  648.  move.w 10(a2),d0
  649.  add.w extlen,d0
  650.  divs d0,d7    ;  d
  651.  sub.w #3,d7
  652.  move.w d7,d6
  653.  muls d5,d6
  654.  muls DX,d7
  655.  divs d0,d6
  656.  divs d0,d7
  657.  neg.w d6
  658.  add.w newx,d6    ; point on wall
  659.  add.w newz,d7
  660.  
  661.  move.w oldx,d0
  662.  move.w oldz,d1
  663.  sub.w (a2),d0
  664.  sub.w 2(a2),d1
  665.  sub.w a4,d0
  666.  sub.w a6,d1
  667.  muls DX,d1
  668.  muls d5,d0
  669.  sub.l d1,d0
  670.  blt .oknothitwall
  671.  
  672.  move.w d6,d0
  673.  move.w d7,d1
  674.  
  675.  bra .hitthewall
  676.  
  677.  sub.w (a2),d6
  678.  sub.w 2(a2),d7
  679.  move.w d6,d4
  680.  bge.s .okplus1
  681.  neg.w d4
  682. .okplus1
  683.  move.w d7,d3
  684.  bge.s .okplus2
  685.  neg.w d3
  686. .okplus2:
  687.  cmp.w d4,d3
  688.  bgt.s .UseZ
  689.  
  690. ; Use the x coord!
  691.  
  692.  tst.w d6
  693.  bgt.s .xispos
  694.  
  695.  move.w DX,d7
  696.  bgt.s .oknothitwall
  697.  cmp.w d7,d6
  698.  blt.s .oknothitwall
  699.  
  700.  bra.s .hitthewall
  701.  
  702. .xispos:
  703.  
  704.  move.w DX,d7
  705.  blt.s .oknothitwall
  706.  cmp.w d7,d6
  707.  bgt.s .oknothitwall
  708.  
  709.  bra.s .hitthewall
  710.  
  711. .UseZ:
  712.  tst.w d7
  713.  bgt.s .zispos
  714.  
  715.  move.w d5,d6
  716.  bgt.s .oknothitwall
  717.  cmp.w d6,d7
  718.  blt.s .oknothitwall
  719.  
  720.  bra.s .hitthewall
  721.  
  722. .zispos:
  723.  
  724.  move.w d5,d6
  725.  blt.s .oknothitwall
  726.  cmp.w d6,d7
  727.  bgt.s .oknothitwall
  728.  
  729.  
  730. .hitthewall:
  731.  
  732.  move.w d0,newx
  733.  move.w d1,newz
  734.  move.w wallflags(pc),d0
  735.  or.w d0,14(a2)
  736.  st hitwall
  737.  tst.b exitfirst(pc)
  738.  bne stopandleave
  739.  
  740. .oknothitwall:
  741.  
  742.  bra checkotherwalls
  743. nomoreotherwalls:
  744.  
  745. NOOTHERWALLSNEEDED
  746.  
  747.  
  748. ; move.w xdiff,d2
  749. ; muls d2,d2
  750. ; move.w zdiff,d3
  751. ; muls d3,d3
  752. ; move.w #0,movespd
  753. ; move.l #0,largespd
  754. ; add.l d3,d2
  755. ;
  756. ; move.w #31,d0
  757. ;.findhigh
  758. ; btst d0,d2
  759. ; bne .foundhigh
  760. ; dbra d0,.findhigh
  761. ;.foundhigh
  762. ; asr.w #1,d0
  763. ; clr.l d3
  764. ; bset d0,d3
  765. ; move.l d3,d0
  766. ;
  767. ; move.w d0,d3
  768. ; muls d3,d3    ; x*x
  769. ; sub.l d2,d3    ; x*x-a
  770. ; asr.l #1,d3    ; (x*x-a)/2
  771. ; divs d0,d3    ; (x*x-a)/2x
  772. ; sub.w d3,d0    ; second approx
  773. ; bgt .stillnot0
  774. ; move.w #1,d0
  775. ;.stillnot0
  776. ;
  777. ; move.w d0,d3
  778. ; muls d3,d3
  779. ; sub.l d2,d3
  780. ; asr.l #1,d3
  781. ; divs d0,d3
  782. ; sub.w d3,d0    ; second approx
  783. ; bgt .stillnot02
  784. ; move.w #1,d0
  785. ;.stillnot02
  786. ;
  787. ; move.w d0,movespd
  788. ;.moving
  789. ; ext.l d0
  790. ; asl.l #5,d0
  791. ; move.l d0,largespd
  792.  
  793. *****************************************************
  794. * FIND ROOM WE'RE STANDING IN ***********************
  795. *****************************************************
  796.  
  797.  move.l a5,a0
  798.  adda.w ToExitList(a5),a0
  799.  
  800.  move.l FloorLines,a1
  801. CheckMoreFloorLines
  802.  move.w (a0)+,d0    ; Either a floor line or -1
  803.  blt NoMoreFloorLines
  804.  asl.w #4,d0
  805.  lea (a1,d0.w),a2
  806.  
  807.  tst.w 8(a2)
  808.  blt.s CheckMoreFloorLines
  809.  
  810.  clr.b CrossIntoTop
  811.  
  812.  moveq #0,d1
  813.  move.w 8(a2),d1
  814.  move.l ZoneAdds,a4
  815.  move.l (a4,d1.w*4),a4
  816.  add.l LEVELDATA,a4
  817.  
  818.  move.l ToZoneRoof(a4),LowerRoofHeight
  819.  
  820. ; move.l newy,d0
  821. ; move.l d0,d1
  822. ; add.l thingheight,d1
  823. ;
  824. ; sub.l ToZoneRoof(a4),d0
  825. ; blt.s NOTINLOWER
  826. ; 
  827. ; sub.l ToZoneFloor(a4),d1
  828. ; blt.s okthebottom
  829. ;
  830. ; cmp.l StepUpVal,d1
  831. ; bgt.s NOTINLOWER
  832. ;
  833. ; move.l ToZoneFloor(a4),d1
  834. ; sub.l thingheight,d1
  835. ; move.l d1,newy
  836. ; bra okthebottom
  837. ;
  838. ;NOTINLOWER:
  839. ;
  840. ; move.l ToZoneRoof(a4),billy
  841. ; move.l ToZoneRoof(a4),billy+4
  842. ; add.l d0,billy+4
  843. ;
  844. ; st CrossIntoTop
  845. ; move.l newy,d0
  846. ; move.l d0,d1
  847. ; add.l thingheight,d1
  848. ; sub.l ToUpperRoof(a4),d0
  849. ; blt CheckMoreFloorLines
  850. ; 
  851. ; sub.l ToUpperFloor(a4),d1
  852. ; blt.s okthebottom
  853. ;
  854. ; cmp.l StepUpVal,d1
  855. ; bgt CheckMoreFloorLines
  856.  
  857. ; move.l ToUpperFloor(a4),d1
  858. ; sub.l thingheight,d1
  859. ; move.l d1,newy
  860.  
  861. okthebottom
  862.  
  863.  move.w newx,d0
  864.  move.w newz,d1
  865.  sub.w (a2),d0    ;a
  866.  sub.w 2(a2),d1    ;b
  867.  muls 4(a2),d1
  868.  muls 6(a2),d0
  869.  moveq #0,d3
  870.  move.w 8(a2),d3
  871.  move.l ZoneAdds,a3
  872.  move.l (a3,d3.w*4),a3
  873.  add.l LEVELDATA,a3
  874.  sub.l d1,d0
  875.  bge StillSameSide
  876.  
  877. * Player is now on the left side of this line.
  878. * Where was he before?
  879.  
  880. ; cmp.l a4,a5
  881. ; bne StillSameSide
  882.  
  883. ; move.w oldx,d0
  884. ; move.w oldz,d1
  885. ; sub.w (a2),d0    ;a
  886. ; sub.w 2(a2),d1    ;b
  887. ; muls 4(a2),d1
  888. ; muls 6(a2),d0
  889. ; sub.l d1,d0
  890. ; blt StillSameSide
  891. ; bra checkifcrossed
  892.  
  893. OnRightsideofline:
  894. * Player is now on the right side of the line.
  895. * Where was he last time?
  896.  
  897. ; exg a3,a4
  898.  
  899. ; cmp.l a3,a5
  900. ; bne StillSameSide
  901.  
  902. ; move.w oldx,d0
  903. ; move.w oldz,d1
  904. ; sub.w (a2),d0    ;a
  905. ; sub.w 2(a2),d1    ;b
  906. ; muls 4(a2),d1
  907. ; muls 6(a2),d0
  908. ; sub.l d1,d0
  909. ; bgt StillSameSide
  910.  
  911. checkifcrossed:
  912.  
  913. *Player used to be on other side of this line.
  914. *Need to check if he crossed it.
  915.  
  916.  move.l d0,billy
  917.  
  918.  move.w newx,d6
  919.  move.w newz,d7
  920.  sub.w oldx,d6
  921.  sub.w oldz,d7
  922.   
  923.  move.w (a2),d4
  924.  sub.w oldx,d4
  925.  muls d4,d7; negative if on left
  926.  move.w 2(a2),d4
  927.  sub.w oldz,d4
  928.  muls d4,d6
  929.  sub.l d6,d7
  930.  bgt StillSameSide
  931.  
  932.  move.w d0,d6
  933.  move.w d1,d7
  934.  move.w newx,d6
  935.  move.w newz,d7
  936.  sub.w oldx,d6
  937.  sub.w oldz,d7
  938.  
  939.  move.w (a2),d4
  940.  add.w 4(a2),d4
  941.  sub.w oldx,d4
  942.  muls d4,d7; negative if on left
  943.  move.w 2(a2),d4
  944.  add.w 6(a2),d4
  945.  sub.w oldz,d4
  946.  muls d4,d6
  947.  sub.l d6,d7
  948.  blt StillSameSide
  949.  
  950. ; Find height at crossing point:
  951.  
  952.  move.l billy,d7
  953.  divs 10(a2),d7
  954.  move.w oldx,d0
  955.  move.w oldz,d1
  956.  sub.w (a2),d0
  957.  sub.w 2(a2),d1
  958.  
  959.  muls 4(a2),d1
  960.  muls 6(a2),d0
  961.  sub.l d1,d0
  962.  divs 10(a2),d0 
  963.  
  964.  sub.w d7,d0
  965.  bgt.s .ohbugger
  966.  moveq #1,d0
  967. .ohbugger:
  968.  
  969.  
  970.  move.l newy,d4
  971.  sub.l oldy,d4
  972.  divs d0,d4
  973.  muls d7,d4
  974.  add.l newy,d4
  975.  
  976.  cmp.l LowerRoofHeight,d4
  977.  slt StoodInTop
  978.  
  979.  move.l a3,a5
  980.  move.l RoomPathPtr,a0
  981.  move.w (a3),(a0)+
  982.  move.l a0,RoomPathPtr
  983.  move.l a3,a0
  984.  move.l a5,objroom
  985.  
  986.  move.w QUITOUT,d0
  987.  sub.w #1,d0
  988.  beq.s ERRORINMOVEMENT
  989.  move.w d0,QUITOUT
  990.  bra gobackanddoitallagain
  991. ; bra.s donefloorline
  992.  
  993. StillSameSide:
  994. donefloorline:
  995.  
  996.  bra CheckMoreFloorLines
  997. NoMoreFloorLines:
  998.  
  999.  move.l a5,a0
  1000.  move.l a5,objroom
  1001.  
  1002. mustbeinsameroom:
  1003.  
  1004. stopandleave:
  1005.  
  1006.  move.l RoomPathPtr,a0
  1007.  move.w #-1,(a0)+
  1008.  
  1009.  rts
  1010.  
  1011. ERRORINMOVEMENT:
  1012.  move.w oldx,newx
  1013.  move.w oldz,newz
  1014.  move.l oldy,newy
  1015.  move.l objroomback,objroom
  1016.  st hitwall
  1017.  rts
  1018.  
  1019. objroomback: dc.l 0
  1020.  
  1021. DX: dc.w 0
  1022.  
  1023. tstxval: dc.l 0
  1024. oldx: dc.l 0
  1025. oldz: dc.l 0
  1026. newx: dc.l 0
  1027. newz: dc.l 0
  1028. xdiff: dc.l 0
  1029. zdiff: dc.l 0
  1030. objroom: dc.l 0
  1031. hitwall: dc.b 0
  1032. exitfirst: dc.b 0
  1033. speed: dc.w 0
  1034. wallflags: dc.w 0
  1035. distaway: dc.w 0
  1036. newy: dc.l 0
  1037. oldy: dc.l 0
  1038. thingheight: dc.l 0
  1039. StepUpVal: dc.l 0
  1040. StepDownVal: dc.l 0
  1041. wallhitheight: dc.l 0
  1042. seclot: dc.b 0
  1043.  
  1044.  even
  1045. WALLXLEN: dc.w 0
  1046. WALLZLEN: dc.w 0
  1047. onwallx: dc.w 0
  1048. onwallz: dc.w 0
  1049. slidex: dc.w 0
  1050. slidez: dc.w 0
  1051. CrossIntoTop: dc.b 0
  1052. StoodInTop: dc.b 0
  1053. LowerFloorHeight: dc.l 0
  1054. LowerRoofHeight: dc.l 0
  1055. UpperFloorHeight: dc.l 0
  1056. UpperRoofHeight: dc.l 0
  1057.  
  1058. billy: dc.l 0,0
  1059.  
  1060.  even
  1061.  
  1062. HeadTowards:
  1063.  
  1064.  move.w newx,d1
  1065.  sub.w oldx,d1
  1066.  move.w d1,xdiff
  1067.  move.w newz,d2
  1068.  sub.w oldz,d2
  1069.  move.w d2,zdiff
  1070.  muls d1,d1
  1071.  muls d2,d2
  1072.  move.w #0,d0
  1073.  move.w d0,distaway
  1074.  add.l d1,d2
  1075.  beq nochange
  1076.  
  1077.  move.w #31,d0
  1078. .findhigh
  1079.  btst d0,d2
  1080.  bne .foundhigh
  1081.  dbra d0,.findhigh
  1082. .foundhigh
  1083.  asr.w #1,d0
  1084.  clr.l d3
  1085.  bset d0,d3
  1086.  move.l d3,d0
  1087.  
  1088.  move.w d0,d1
  1089.  muls d1,d1    ; x*x
  1090.  sub.l d2,d1    ; x*x-a
  1091.  asr.l #1,d1    ; (x*x-a)/2
  1092.  divs d0,d1    ; (x*x-a)/2x
  1093.  sub.w d1,d0    ; second approx
  1094.  bgt .stillnot0
  1095.  move.w #1,d0
  1096. .stillnot0
  1097.  
  1098.  move.w d0,d1
  1099.  muls d1,d1
  1100.  sub.l d2,d1
  1101.  asr.l #1,d1
  1102.  divs d0,d1
  1103.  sub.w d1,d0    ; second approx
  1104.  bgt .stillnot02
  1105.  move.w #1,d0
  1106. .stillnot02
  1107.  
  1108.  move.w d0,distaway
  1109.  
  1110. ; d0=perpdist
  1111.  
  1112.  cmp.w Range,d0
  1113.  sle GotThere
  1114.  bgt.s faraway
  1115.  
  1116.  move.w xdiff,d1
  1117.  move.w zdiff,d2
  1118.  muls Range,d1
  1119.  muls Range,d2
  1120.  divs d0,d1
  1121.  divs d0,d2
  1122.  neg.w d1
  1123.  neg.w d2
  1124.  add.w d1,newx
  1125.  add.w d2,newz
  1126.  bra nochange
  1127.  
  1128. faraway:
  1129.  move.w speed,d3
  1130.  add.w Range,d3
  1131.  cmp.w d0,d3
  1132.  blt.s .notoofast
  1133.  move.w d0,d3
  1134.  st GotThere
  1135. .notoofast:
  1136.  sub.w Range,d3
  1137.  
  1138.  move.w xdiff,d1
  1139.  muls d3,d1
  1140.  divs d0,d1
  1141.  move.w zdiff,d2
  1142.  muls d3,d2
  1143.  divs d0,d2
  1144.  add.w oldx,d1
  1145.  move.w d1,newx
  1146.  add.w oldz,d2
  1147.  move.w d2,newz
  1148.  
  1149. nochange:
  1150.  
  1151.  rts
  1152.  
  1153.  
  1154. CalcDist:
  1155.  
  1156.  move.w newx,d1
  1157.  sub.w oldx,d1
  1158.  move.w d1,xdiff
  1159.  move.w newz,d2
  1160.  sub.w oldz,d2
  1161.  move.w d2,zdiff
  1162.  muls d1,d1
  1163.  muls d2,d2
  1164.  move.w #0,d0
  1165.  move.w d0,distaway
  1166.  add.l d1,d2
  1167.  beq .nochange
  1168.  
  1169.  move.w #31,d0
  1170. .findhigh
  1171.  btst d0,d2
  1172.  bne .foundhigh
  1173.  dbra d0,.findhigh
  1174. .foundhigh
  1175.  asr.w #1,d0
  1176.  clr.l d3
  1177.  bset d0,d3
  1178.  move.l d3,d0
  1179.  
  1180.  move.w d0,d1
  1181.  muls d1,d1    ; x*x
  1182.  sub.l d2,d1    ; x*x-a
  1183.  asr.l #1,d1    ; (x*x-a)/2
  1184.  divs d0,d1    ; (x*x-a)/2x
  1185.  sub.w d1,d0    ; second approx
  1186.  bgt .stillnot0
  1187.  move.w #1,d0
  1188. .stillnot0
  1189.  
  1190.  move.w d0,d1
  1191.  muls d1,d1
  1192.  sub.l d2,d1
  1193.  asr.l #1,d1
  1194.  divs d0,d1
  1195.  sub.w d1,d0    ; second approx
  1196.  bgt .stillnot02
  1197.  move.w #1,d0
  1198. .stillnot02
  1199.  
  1200.  move.w d0,distaway
  1201. .nochange:
  1202.  
  1203.  rts
  1204.  
  1205.  
  1206. counterer: dc.w 0
  1207. CosRet: dc.w 0
  1208. SinRet: dc.w 0
  1209.  
  1210. HeadTowardsAng:
  1211.  
  1212.  move.w newx,d1
  1213.  sub.w oldx,d1
  1214.  move.w d1,xdiff
  1215.  move.w newz,d2
  1216.  sub.w oldz,d2
  1217.  move.w d2,zdiff
  1218.  muls d1,d1
  1219.  muls d2,d2
  1220.  move.w #0,d0
  1221.  add.l d1,d2
  1222.  seq GotThere
  1223.  beq .nochange
  1224.  
  1225.  move.w #31,d0
  1226. .findhigh
  1227.  btst d0,d2
  1228.  bne .foundhigh
  1229.  dbra d0,.findhigh
  1230. .foundhigh
  1231.  asr.w #1,d0
  1232.  clr.l d3
  1233.  bset d0,d3
  1234.  move.l d3,d0
  1235.  
  1236.  move.w d0,d1
  1237.  muls d1,d1    ; x*x
  1238.  sub.l d2,d1    ; x*x-a
  1239.  asr.l #1,d1    ; (x*x-a)/2
  1240.  divs d0,d1    ; (x*x-a)/2x
  1241.  sub.w d1,d0    ; second approx
  1242.  bgt .stillnot0
  1243.  move.w #1,d0
  1244. .stillnot0
  1245.  
  1246.  move.w d0,d1
  1247.  muls d1,d1
  1248.  sub.l d2,d1
  1249.  asr.l #1,d1
  1250.  divs d0,d1
  1251.  sub.w d1,d0    ; second approx
  1252.  bgt .stillnot02
  1253.  move.w #1,d0
  1254. .stillnot02
  1255.  
  1256.  move.w d0,d1
  1257.  muls d1,d1
  1258.  sub.l d2,d1
  1259.  asr.l #1,d1
  1260.  divs d0,d1
  1261.  sub.w d1,d0    ; second approx
  1262.  bgt .stillnot03
  1263.  move.w #1,d0
  1264. .stillnot03
  1265.  
  1266.  
  1267. ; d0=perpdist
  1268.  
  1269.  cmp.w Range,d0
  1270.  sle GotThere
  1271.  bgt .faraway
  1272.  
  1273.  move.w oldx,newx
  1274.  move.w oldz,newz
  1275.  bra .nochange
  1276.  
  1277.  move.w xdiff,d1
  1278.  move.w zdiff,d2
  1279.  muls Range,d1
  1280.  muls Range,d2
  1281.  addq #3,d0
  1282.  divs d0,d1
  1283.  divs d0,d2
  1284.  subq #3,d0
  1285.  neg.w d1
  1286.  neg.w d2
  1287.  add.w d1,newx
  1288.  add.w d2,newz
  1289.  tst.b canshove
  1290.  beq .nochange
  1291.  move.w PLR1_opushx(pc),d1
  1292.  add.w PLR2_opushx(pc),d1
  1293.  sub.w d1,newx
  1294.  move.w PLR1_opushz(pc),d1
  1295.  add.w PLR2_opushz(pc),d1
  1296.  sub.w d1,newz
  1297.  move.w xdiff,d1
  1298.  move.w zdiff,d2
  1299.  move.w Range,d3
  1300.  sub.w d0,d3
  1301.  muls d3,d1
  1302.  muls d3,d2
  1303.  divs d0,d1
  1304.  divs d0,d2
  1305.  move.w d1,shovex
  1306.  move.w d2,shovez
  1307.  bra .nochange
  1308.  
  1309. .faraway:
  1310.  
  1311.  move.w speed,d3
  1312.  add.w Range,d3
  1313.  cmp.w d0,d3
  1314.  blt.s .notoofast
  1315.  move.w d0,d3
  1316.  st GotThere
  1317. .notoofast:
  1318.  sub.w Range,d3
  1319.  
  1320.  move.w xdiff,d1
  1321.  muls d3,d1
  1322.  divs d0,d1
  1323.  move.w zdiff,d2
  1324.  muls d3,d2
  1325.  divs d0,d2
  1326.  add.w oldx,d1
  1327.  move.w d1,newx
  1328.  add.w oldz,d2
  1329.  move.w d2,newz
  1330.  
  1331. .nochange:
  1332.  
  1333.  tst.w d0
  1334.  beq.s nocossin
  1335.  
  1336.  add.w #1,d0
  1337.  move.w xdiff,d1
  1338.  swap d1
  1339.  clr.w d1
  1340.  asr.l #1,d1
  1341.  divs d0,d1
  1342.  move.w d1,SinRet
  1343.  move.w zdiff,d1
  1344.  swap d1
  1345.  clr.w d1
  1346.  asr.l #1,d1
  1347.  divs d0,d1
  1348.  move.w d1,CosRet
  1349.  
  1350.  move.w SinRet,d0
  1351.  move.w #0,d2
  1352.  move.l #SineTable,a2
  1353.  lea 2048(a2),a3
  1354.  move.w #3,d5
  1355.  move.w #2048,d6
  1356. findanglop:
  1357.  
  1358.  move.w (a2,d2.w*2),d3
  1359.  move.w (a3,d2.w*2),d4
  1360.  muls d0,d4
  1361.  muls d1,d3
  1362.  sub.l d3,d4
  1363.  blt.s subang
  1364.  add.w d6,d2
  1365.  add.w d6,d2
  1366. subang:
  1367.  sub.w d6,d2
  1368.  and.w #4095,d2
  1369.  asr.w #1,d6
  1370.  dbra d5,findanglop
  1371.  add.w d2,d2
  1372.  move.w d2,AngRet
  1373.  
  1374. nocossin:
  1375.  
  1376.  rts
  1377.  
  1378. AngRet: dc.w 0
  1379. Range: dc.w 0
  1380. GotThere: dc.w 0
  1381. shovex: dc.w 0
  1382. shovez: dc.w 0
  1383. canshove: dc.w 0
  1384. PLR2_pushx: dc.l 0
  1385. PLR2_pushz: dc.l 0
  1386. PLR2_opushx: dc.l 0
  1387. PLR2_opushz: dc.l 0
  1388. PLR1_pushx: dc.l 0
  1389. PLR1_pushz: dc.l 0
  1390. PLR1_opushx: dc.l 0
  1391. PLR1_opushz: dc.l 0
  1392.  
  1393. CheckHit:
  1394.  move.w newx,d0
  1395.  sub.w oldx,d0
  1396.  move.w newz,d1
  1397.  sub.w oldz,d1
  1398.  muls d1,d1
  1399.  muls d0,d0
  1400.  add.l d0,d1
  1401.  cmp.l d2,d1
  1402.  slt hitwall
  1403.  rts
  1404.  
  1405. ONLYSEE: dc.w 0
  1406.  
  1407. GetNextCPt:
  1408.  
  1409.  clr.b ONLYSEE
  1410.  cmp.w d0,d1
  1411.  beq.s noneedforhassle
  1412.  muls.w #100,d0
  1413.  ext.l d1
  1414.  add.l d1,d0
  1415.  move.l a0,-(a7)
  1416.  
  1417.  move.l LINKS,a0
  1418.  tst.b FLYABIT
  1419.  beq.s .walklink
  1420.  move.l FLYLINKS,a0
  1421. .walklink: 
  1422.  move.b (a0,d0.w),d0
  1423.  move.b d0,d1
  1424.  and.b #$7f,d0
  1425.  and.b #$80,d1
  1426.  sne ONLYSEE
  1427.  ext.w d0
  1428.  move.l (a7)+,a0
  1429. noneedforhassle:
  1430.  rts
  1431.  
  1432. FromRoom: dc.l 0
  1433. ToRoom: dc.l 0
  1434. CanSee: dc.w 0
  1435. Facedir: dc.w 0
  1436.  
  1437.  even
  1438.  
  1439. CanItBeSeenAng:
  1440.  movem.l d0-d7/a0-a6,-(a7)
  1441.  
  1442.  move.w Facedir,d0
  1443.  move.l #SineTable,a0
  1444.  add.w d0,a0
  1445.  move.w (a0),d0
  1446.  move.w 2048(a0),d1
  1447.  move.w Targetx,d2
  1448.  sub.w Viewerx,d2
  1449.  move.w Targetz,d3
  1450.  sub.w Viewerz,d3
  1451.  muls d1,d2
  1452.  muls d0,d3
  1453.  sub.l d3,d2
  1454.  bgt.s ItMightBeSeen
  1455.  clr.b CanSee
  1456.  movem.l (a7)+,d0-a7/a0-a6
  1457.  rts
  1458. ItMightBeSeen:
  1459.  
  1460.  move.l ToRoom,a0
  1461.  move.w (a0),d0
  1462.  move.l FromRoom,a0
  1463.  adda.w #ToListOfGraph,a0
  1464.  bra.s InList
  1465.  
  1466. Viewerx: dc.l 0
  1467. Viewerz: dc.l 0
  1468. Targetx: dc.l 0
  1469. Targetz: dc.l 0
  1470. ViewerTop: dc.b 0
  1471. TargetTop: dc.b 0 
  1472. Viewery: dc.w 0
  1473. Targety: dc.w 0
  1474.  
  1475.   even
  1476.  
  1477. insameroom:
  1478.  st CanSee
  1479.  move.b ViewerTop,d0
  1480.  move.b TargetTop,d1
  1481.  eor.b d0,d1
  1482.  bne outlist
  1483.  movem.l (a7)+,d0-d7/a0-a6
  1484.  rts
  1485.  
  1486. CanItBeSeen:
  1487.  
  1488.  
  1489.  movem.l d0-d7/a0-a6,-(a7)
  1490.  move.l ToRoom,a1
  1491.  move.w (a1),d0
  1492.  move.l FromRoom,a0
  1493.  cmp.l a0,a1
  1494.  beq.s insameroom
  1495.  
  1496.  adda.w #ToListOfGraph,a0
  1497.  
  1498. InList:
  1499.  move.w (a0),d1
  1500.  tst.w d1
  1501.  blt outlist
  1502.  move.l ZoneGraphAdds,a1
  1503.  move.l (a1,d1.w*8),a1
  1504.  add.l LEVELGRAPHICS,a1
  1505.  
  1506.  adda.w #8,a0
  1507.  cmp.w (a1),d0
  1508.  beq isinlist
  1509.  
  1510.  bra.s InList
  1511.  
  1512. isinlist:
  1513. ; We have found the dest room in the
  1514. ; list of rooms visible from the
  1515. ; source room.
  1516.  
  1517. ; Do line of sight!
  1518.  
  1519.  st CanSee
  1520.  
  1521.  move.l Points,a2
  1522.  move.w Targetx,d1
  1523.  move.w Targetz,d2
  1524.  sub.w Viewerx,d1
  1525.  sub.w Viewerz,d2
  1526.  
  1527.  moveq #0,d3
  1528.  move.w -6(a0),d3
  1529.  blt nomorerclips
  1530.  move.l LEVELCLIPS,a1
  1531.  lea (a1,d3.l*2),a1
  1532.  move.l a1,clipstocheck
  1533. checklcliploop:
  1534.  tst.w (a1)
  1535.  blt nomorelclips
  1536.  
  1537.  move.w (a1),d0
  1538.  blt.s noleftone
  1539.  move.l (a2,d0.w*4),d3
  1540.  move.w d3,d4
  1541.  sub.w Viewerz,d4
  1542.  swap d3
  1543.  sub.w Viewerx,d3
  1544.  muls d2,d3
  1545.  muls d1,d4
  1546.  sub.l d3,d4
  1547.  ble outlist
  1548.  
  1549. noleftone:
  1550.  
  1551.  addq #2,a1
  1552.  
  1553.  bra checklcliploop
  1554.  
  1555. nomorelclips:
  1556.  
  1557.  addq #2,a1
  1558.  
  1559. checkrcliploop:
  1560.  tst.w (a1)
  1561.  blt nomorerclips
  1562.  
  1563.  move.w (a1),d0
  1564.  blt.s norightone
  1565.  move.l (a2,d0.w*4),d3
  1566.  move.w d3,d4
  1567.  sub.w Viewerz,d4
  1568.  swap d3
  1569.  sub.w Viewerx,d3
  1570.  muls d2,d3
  1571.  muls d1,d4
  1572.  sub.l d3,d4
  1573.  bge outlist
  1574.  
  1575. norightone:
  1576.  addq #2,a1
  1577.  
  1578.  bra checkrcliploop
  1579.  
  1580.  
  1581. nomorerclips:
  1582.  
  1583. ; No clipping points in the way; got to do the
  1584. ; vertical working out now.
  1585.  
  1586.  move.w Targetx,d0
  1587.  move.w Targetz,d1
  1588.  sub.w Viewerx,d0
  1589.  sub.w Viewerz,d1
  1590.  move.l FromRoom,a5
  1591.  move.l FloorLines,a1
  1592.  move.b ViewerTop,d2
  1593.  move.w Targety,d7
  1594.  sub.w Viewery,d7
  1595.  
  1596.  
  1597. GoThroughZones:
  1598.  move.l a5,a0
  1599.  adda.w ToExitList(a0),a0
  1600.  
  1601. FindWayOut:
  1602.  move.w (a0)+,d5
  1603.  blt outlist
  1604.  asl.w #4,d5
  1605.  lea (a1,d5.w),a2
  1606.  
  1607.  move.w (a2),d3
  1608.  move.w 2(a2),d4
  1609.  sub.w Viewerx,d3
  1610.  sub.w Viewerz,d4
  1611.  move.w d3,d5
  1612.  move.w d4,d6
  1613.  muls d1,d3
  1614.  muls d0,d4
  1615.  sub.l d3,d4
  1616.  ble FindWayOut
  1617.  
  1618.  add.w 4(a2),d5
  1619.  add.w 6(a2),d6
  1620.  muls d0,d6
  1621.  muls d1,d5
  1622.  sub.l d5,d6
  1623.  bge FindWayOut
  1624.  
  1625.  tst.w 8(a2)
  1626.  blt outlist
  1627.  
  1628. ; Here is the exit from the room. Calculate the height at which
  1629. ; we meet it.
  1630.  
  1631.  move.w Targetx,d3
  1632.  move.w Targetz,d4
  1633.  sub.w (a2),d3
  1634.  sub.w 2(a2),d4
  1635.  muls 4(a2),d4
  1636.  muls 6(a2),d3
  1637.  sub.l d3,d4    ; positive
  1638.  
  1639.  move.w Viewerx,d5
  1640.  move.w Viewerz,d6
  1641.  sub.w (a2),d5
  1642.  sub.w 2(a2),d6
  1643.  muls 4(a2),d6
  1644.  muls 6(a2),d5
  1645.  sub.l d6,d5    ; positive
  1646.  
  1647.  divs 10(a2),d4
  1648.  divs 10(a2),d5
  1649.  
  1650.  add.w d5,d4
  1651.  beq.s sameheight
  1652.  muls d7,d5
  1653.  divs d4,d5
  1654. sameheight:
  1655.  add.w Viewery,d5    ; height at which we cross wall
  1656.  
  1657.  ext.l d5
  1658.  asl.l #7,d5
  1659.  
  1660.  tst.b d2
  1661.  beq.s comparewithbottom
  1662.  
  1663.  cmp.l ToUpperRoof(a5),d5
  1664.  blt outlist
  1665.  cmp.l ToUpperFloor(a5),d5
  1666.  bgt outlist
  1667.  bra.s madeit
  1668.  
  1669. comparewithbottom:
  1670.  cmp.l ToZoneRoof(a5),d5
  1671.  blt outlist
  1672.  cmp.l ToZoneFloor(a5),d5
  1673.  bgt outlist
  1674. madeit:
  1675.  st donessomething
  1676.  
  1677.  moveq #0,d3
  1678.  move.w 8(a2),d3
  1679.  move.l ZoneAdds,a3
  1680.  move.l (a3,d3.w*4),a5
  1681.  add.l LEVELDATA,a5
  1682.  
  1683.  clr.b d2
  1684.  cmp.l ToZoneFloor(a5),d5
  1685.  bgt outlist
  1686.  cmp.l ToZoneRoof(a5),d5
  1687.  bgt.s GotIn
  1688.  st d2
  1689.  cmp.l ToUpperFloor(a5),d5
  1690.  bgt outlist
  1691.  cmp.l ToUpperRoof(a5),d5
  1692.  blt outlist
  1693.  
  1694. GotIn:
  1695.  
  1696.  cmp.l ToRoom,a5
  1697.  bne GoThroughZones
  1698.  
  1699.  move.b TargetTop,d3
  1700.  eor.b d2,d3
  1701.  bne outlist
  1702.  
  1703.  
  1704.  movem.l (a7)+,d0-d7/a0-a6
  1705.  rts
  1706.  
  1707. clipstocheck: dc.l 0
  1708. donessomething: dc.w 0
  1709.  
  1710. outlist:
  1711.  clr.b CanSee
  1712.  movem.l (a7)+,d0-d7/a0-a6
  1713.  rts
  1714.  
  1715.  
  1716. FindCollisionPt:
  1717.  movem.l d0-a7/a0-a6,-(a7)
  1718.  
  1719.  move.w Targetx,d0
  1720.  move.w Targetz,d1
  1721.  sub.w Viewerx,d0
  1722.  sub.w Viewerz,d1
  1723.  move.l FromRoom,a5
  1724.  move.l FloorLines,a1
  1725.  move.b ViewerTop,d2
  1726.  move.w Targety,d7
  1727.  sub.w Viewery,d7
  1728.  
  1729.  
  1730. .GoThroughZones:
  1731.  move.l a5,a0
  1732.  adda.w ToExitList(a0),a0
  1733.  
  1734. .FindWayOut:
  1735.  move.w (a0)+,d5
  1736.  blt outlist
  1737.  asl.w #4,d5
  1738.  lea (a1,d5.w),a2
  1739.  
  1740.  move.w (a2),d3
  1741.  move.w 2(a2),d4
  1742.  sub.w Viewerx,d3
  1743.  sub.w Viewerz,d4
  1744.  move.w d3,d5
  1745.  move.w d4,d6
  1746.  muls d1,d3
  1747.  muls d0,d4
  1748.  sub.l d3,d4
  1749.  ble .FindWayOut
  1750.  
  1751.  add.w 4(a2),d5
  1752.  add.w 6(a2),d6
  1753.  muls d0,d6
  1754.  muls d1,d5
  1755.  sub.l d5,d6
  1756.  bge .FindWayOut
  1757.  
  1758.  
  1759. ; Here is the exit from the room. Calculate the height at which
  1760. ; we meet it.
  1761.  
  1762.  move.w Targetx,d3
  1763.  move.w Targetz,d4
  1764.  sub.w (a2),d3
  1765.  sub.w 2(a2),d4
  1766.  muls 4(a2),d4
  1767.  muls 6(a2),d3
  1768.  sub.l d3,d4    ; positive
  1769.  
  1770.  move.w Viewerx,d5
  1771.  move.w Viewerz,d6
  1772.  sub.w (a2),d5
  1773.  sub.w 2(a2),d6
  1774.  muls 4(a2),d6
  1775.  muls 6(a2),d5
  1776.  sub.l d6,d5    ; positive
  1777.  
  1778.  divs 10(a2),d4
  1779.  divs 10(a2),d5
  1780.  
  1781.  move.w d5,d6
  1782.  add.w d5,d4
  1783.  beq.s .sameheight
  1784.  muls d7,d5
  1785.  divs d4,d5
  1786. .sameheight:
  1787.  add.w Viewery,d5    ; height at which we cross wall
  1788.  
  1789.  ext.l d5
  1790.  asl.l #7,d5
  1791.  
  1792.  moveq #0,d3
  1793.  move.w 8(a2),d3
  1794.  blt foundpt
  1795.  move.l ZoneAdds,a3
  1796.  move.l (a3,d3.w*4),a5
  1797.  add.l LEVELDATA,a5
  1798.  
  1799.  clr.b d2
  1800.  cmp.l ToZoneFloor(a5),d5
  1801.  bgt foundpt
  1802.  cmp.l ToZoneRoof(a5),d5
  1803.  bgt.s .GotIn
  1804.  st d2
  1805.  cmp.l ToUpperFloor(a5),d5
  1806.  bgt foundpt
  1807.  cmp.l ToUpperRoof(a5),d5
  1808.  blt foundpt
  1809.  
  1810. .GotIn:
  1811.  
  1812.  bra .GoThroughZones
  1813.  
  1814.  tst.w d4
  1815.  beq.s foundpt
  1816.  muls d6,d0
  1817.  divs d4,d0
  1818.  muls d6,d1
  1819.  divs d4,d1
  1820.  add.w Viewerx,d0
  1821.  add.w Viewerz,d1
  1822.  move.w d0,Targetx
  1823.  move.w d1,Targetz
  1824.  move.l d5,Targety
  1825.  
  1826. foundpt:
  1827.  
  1828.  movem.l (a7)+,d0-a7/a0-a6
  1829.  rts
  1830.  
  1831. GetRand:
  1832.  move.w Rand1,d0
  1833.  rol.w #3,d0
  1834.  add.w #$2343,d0
  1835.  move.w d0,Rand1
  1836.  rts
  1837.  
  1838. Rand1: dc.w 234
  1839.  
  1840. GoInDirection:
  1841.  move.l #SineTable,a0
  1842.  lea (a0,d0.w),a0
  1843.  move.w (a0),d1
  1844.  move.w 2048(a0),d2
  1845.  muls speed,d1
  1846.  add.l d1,d1
  1847.  muls speed,d2
  1848.  add.l d2,d2
  1849.  swap d1
  1850.  swap d2
  1851.  add.w oldx,d1
  1852.  add.w oldz,d2
  1853.  move.w d1,newx
  1854.  move.w d2,newz
  1855.  rts
  1856.  
  1857. CollideFlags: dc.l 0
  1858.  
  1859. Collision:
  1860.  
  1861.  move.l ObjectData,a0
  1862.  move.w CollId,d0
  1863.  asl.w #6,d0
  1864.  move.b 16(a0,d0.w),d0
  1865.  ext.w d0
  1866.  
  1867.  sub.w #64,a0
  1868.  move.l ObjectPoints,a1
  1869.  move.l #ColBoxTable,a2
  1870.  lea  (a2,d0.w*8),a3
  1871.  
  1872.  move.l CollideFlags,d7
  1873.  move.b StoodInTop,d6
  1874.  move.l newy,d4
  1875.  move.l d4,d5
  1876.  add.l thingheight,d5
  1877.  asr.l #7,d4
  1878.  asr.l #7,d5
  1879.  clr.b hitwall
  1880.  
  1881. checkcol:
  1882.  add.w #64,a0
  1883.  
  1884.  move.w (a0),d0
  1885.  blt checkedallcol
  1886.  
  1887.  cmp.w CollId,d0
  1888.  beq.s checkcol
  1889.  
  1890.  tst.w 12(a0)
  1891.  blt.s checkcol
  1892.  
  1893.  tst.b numlives(a0)
  1894.  beq.s checkcol
  1895.  
  1896.  move.b ObjInTop(a0),d1
  1897.  eor.b d6,d1
  1898.  bne checkcol
  1899.  
  1900.  moveq #0,d3
  1901.  move.b 16(a0),d3
  1902.  blt checkcol
  1903.  beq .ycol
  1904.  
  1905.  cmp.b #1,d3
  1906.  bne checkcol
  1907.  
  1908.  move.l LINKFILE,a4
  1909.  add.l #ObjectStats,a4
  1910.  moveq #0,d1
  1911.  move.b TypeOfThing(a0),d1
  1912.  muls #ObjectStatLen,d1
  1913.  cmp.w #2,O_Behaviour(a4,d1.w)
  1914.  bne checkcol
  1915.  
  1916.  tst.b numlives(a0)
  1917.  ble checkcol
  1918.  
  1919. .ycol
  1920.  
  1921.  btst d3,d7
  1922.  beq checkcol
  1923.  
  1924.  move.w 4(a0),d1
  1925.  sub.w 2(a2,d3.w*8),d1
  1926.  cmp.w d1,d5
  1927.  blt checkcol
  1928.  add.w 4(a2,d3.w*8),d1
  1929.  cmp.w d1,d4
  1930.  bgt checkcol
  1931.  
  1932.  move.w (a1,d0.w*8),d1
  1933.  move.w 4(a1,d0.w*8),d2
  1934.  sub.w newx,d1
  1935.  bge.s .xnoneg
  1936.  neg.w d1
  1937. .xnoneg:
  1938.  sub.w newz,d2
  1939.  bge.s .znoneg
  1940.  neg.w d2
  1941. .znoneg:
  1942.  cmp.w d1,d2
  1943.  ble.s .checkx
  1944.  sub.w (a3),d2
  1945.  cmp.w (a2,d3.w*8),d2
  1946.  bgt checkcol
  1947.  st hitwall
  1948.  bra checkedallcol
  1949. .checkx:
  1950.  sub.w (a3),d1
  1951.  cmp.w (a2,d3.w*8),d1
  1952.  bgt checkcol
  1953.  
  1954.  move.w (a1,d0.w*8),d1
  1955.  move.w 4(a1,d0.w*8),d2
  1956.  move.w d1,d6
  1957.  move.w d2,d7
  1958.  sub.w newx,d6
  1959.  sub.w newz,d7
  1960.  muls d6,d6
  1961.  muls d7,d7
  1962.  add.l d6,d7
  1963.  sub.w oldx,d1
  1964.  sub.w oldz,d2
  1965.  muls d1,d1
  1966.  muls d2,d2
  1967.  add.l d1,d2
  1968.  cmp.l d2,d7
  1969.  bgt checkcol
  1970.  
  1971.  st hitwall
  1972.  bra checkedallcol
  1973.  
  1974. ; bra checkcol
  1975.  
  1976. checkedallcol:
  1977.  rts
  1978.  
  1979. ColBoxTable:
  1980.  
  1981. ; red scurrying alien
  1982.  dc.w 40,60,120,0
  1983. ; Medipack
  1984.  dc.w 40,20,40,0
  1985. ; Bullet
  1986.  dc.w 40,20,40,0
  1987. ; Gun
  1988.  dc.w 40,20,40,0
  1989. ; Key
  1990.  dc.w 40,20,40,0
  1991. ; PLayer1
  1992.  dc.w 40,40,80,0
  1993. ;Robot
  1994.  dc.w 40,50,100,0
  1995. ;?
  1996.  dc.w 40,20,40,0
  1997. ; Flying Nasty
  1998.  dc.w 80,60,120,0
  1999. ; Ammo
  2000.  dc.w 40,20,40,0
  2001. ; Barrel
  2002.  dc.w 40,30,60,0
  2003. ;PlAYER2
  2004.  dc.w 40,40,80,0
  2005. ; Mutant Marine
  2006.  dc.w 40,40,80,0
  2007. ; worm
  2008.  dc.w 80,60,120,0
  2009. ; huge red thing
  2010.  dc.w 160,100,200,0
  2011. ; small red thing
  2012.  dc.w 80,50,100,0
  2013. ; tree
  2014.  dc.w 80,60,120,0
  2015. ; eyeball
  2016.  dc.w 40,30,60,0
  2017. ; Tough Marine
  2018.  dc.w 40,40,80,0
  2019. ; ShotGun Marine
  2020.  dc.w 40,40,80,0
  2021.  
  2022. FromZone: dc.w 0
  2023. OKTEL: dc.w 0
  2024. floortemp: dc.l 0
  2025.  
  2026. CheckTeleport:
  2027.  clr.b OKTEL
  2028.  move.w FromZone,d0
  2029.  move.l ZoneAdds,a2
  2030.  move.l (a2,d0.w*4),a2
  2031.  add.l LEVELDATA,a2
  2032.  tst.w ToTelZone(a2)
  2033.  bge.s ITSATEL
  2034.  rts
  2035.  
  2036. ITSATEL:
  2037.  move.l ToZoneFloor(a2),floortemp
  2038.  move.w ToTelZone(a2),d0
  2039.  move.l ZoneAdds,a3
  2040.  move.l (a3,d0.w*4),a3
  2041.  add.l LEVELDATA,a3
  2042.  move.l ToZoneFloor(a3),d0
  2043.  sub.l floortemp,d0
  2044.  move.l d0,floortemp
  2045.  add.l d0,newy 
  2046.  move.w ToTelX(a2),newx
  2047.  move.w ToTelZ(a2),newz
  2048.  move.l #%1111111111111111111,CollideFlags
  2049.  movem.l a0/a1/a2,-(a7)
  2050.  bsr Collision
  2051.  movem.l (a7)+,a0/a1/a2
  2052.  
  2053.  move.l floortemp,d0
  2054.  sub.l d0,newy
  2055.  
  2056.  tst.b hitwall
  2057.  seq OKTEL
  2058.  beq.s .teleport
  2059.  rts
  2060. .teleport:
  2061.  move.w ToTelZone(a2),d0
  2062.  move.l ZoneAdds,a2
  2063.  move.l (a2,d0.w*4),a2
  2064.  add.l LEVELDATA,a2
  2065.  move.l a2,objroom
  2066.  
  2067.  rts
  2068.  
  2069. FindCloseRoom:
  2070.  ; d0 is distance.
  2071.  
  2072.  move.w 4(a0),d1
  2073.  ext.l d1
  2074.  asl.l #7,d1
  2075.  move.l d1,oldy
  2076.  move.l d1,newy
  2077.  
  2078.  move.w (a0),d1
  2079.  move.l ObjectPoints,a1
  2080.  lea (a1,d1.w*8),a1
  2081.  move.w (a1),oldx 
  2082.  move.w 4(a1),oldz
  2083.  
  2084.  move.w 12(a0),d2
  2085.  move.l ZoneAdds,a5
  2086.  move.l (a5,d2.w*4),d2
  2087.  add.l LEVELDATA,d2
  2088.  move.l d2,objroom
  2089.  
  2090.  move.w THISPLRxoff,newx
  2091.  move.w THISPLRzoff,newz
  2092.  move.w d0,speed
  2093.  movem.l a0/a1,-(a7)
  2094.  jsr HeadTowards
  2095.  movem.l (a7)+,a0/a1
  2096.  
  2097.  move.w newx,d0
  2098.  sub.w oldx,d0
  2099.  move.w oldz,d1
  2100.  sub.w newz,d1
  2101.  
  2102.  move.w d1,xd
  2103.  move.w d0,zd
  2104.  
  2105.  move.l #100000,StepUpVal
  2106.  move.l #100000,StepDownVal
  2107.  move.w #0,thingheight
  2108.  
  2109.  st exitfirst
  2110.  
  2111.  add.w oldx,d1
  2112.  add.w oldz,d0
  2113.  move.w d1,newx
  2114.  move.w d0,newz
  2115.  movem.l d0-d7/a0-a6,-(a7)
  2116.  clr.b wallbounce
  2117.  jsr MoveObject
  2118.  movem.l (a7)+,d0-d7/a0-a6
  2119.  
  2120.  move.l #RoomPath,a2
  2121.  move.l #possclose,a3
  2122.  move.w 12(a0),(a3)+
  2123.  
  2124. putinmore:
  2125.  move.w (a2)+,(a3)+
  2126.  bge.s putinmore
  2127.  subq #2,a3
  2128.  
  2129.  move.w oldx,d0
  2130.  sub.w xd,d0
  2131.  move.w oldz,d1
  2132.  sub.w zd,d1
  2133.  move.w d0,newx
  2134.  move.w d1,newz    
  2135.  
  2136.  movem.l d0-d7/a0-a6,-(a7)
  2137.  clr.b wallbounce
  2138.  jsr MoveObject
  2139.  movem.l (a7)+,d0-d7/a0-a6
  2140.  
  2141.  move.l #RoomPath,a2
  2142.  
  2143. putinmore2:
  2144.  move.w (a2)+,d0
  2145.  move.w d0,(a3)+
  2146.  tst.w d0
  2147.  bge.s putinmore2
  2148.  
  2149. ; ok a3 points at list of rooms passed through.
  2150.  move.w #-1,(a3)+
  2151.  
  2152.  
  2153.  move.w 12(a0),d7
  2154.  
  2155.  move.l endoflist,a3
  2156. FINDCLOSELOOP:
  2157.  move.l #possclose,a2
  2158.  move.w -(a3),d0
  2159.  blt foundclose
  2160.  
  2161. findinner
  2162.  move.w (a2)+,d1
  2163.  blt.s outin
  2164.  cmp.w d0,d1
  2165.  bne.s findinner
  2166.  move.w d0,d7
  2167. outin:
  2168.  
  2169.  bra.s FINDCLOSELOOP
  2170.  
  2171. foundclose:
  2172.  
  2173.  move.w d7,GraphicRoom(a0)
  2174.  
  2175.  rts
  2176.  
  2177. xd: dc.w 0
  2178. zd: dc.w 0
  2179.  
  2180. possclose:
  2181.  ds.w 100